home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / asmutil / asm_n_z.zip / WT.ASM < prev    next >
Assembly Source File  |  1987-03-12  |  23KB  |  471 lines
  1.         TITLE   WalkTree - Execute Program at Every Level of Tree
  2.  
  3. ; Copyright Notice:
  4. ; 
  5. ; The program WalkTree,  both in binary executable and source forms,  is 
  6. ; in  the  public  domain.  No  warranty  is  given  or implied,  and no 
  7. ; liability will be assumed by the author.  
  8. ; 
  9. ; Everyone on earth is hereby given permission to use, copy, distribute, 
  10. ; change, mangle,  destroy or otherwise employ these programs,  in whole 
  11. ; or in part,  in any fashion they so desire,  provided they hurt no one 
  12. ; but themselves in the process.  
  13. ; 
  14. ; If anyone has any questions about this or any  other  program  that  I 
  15. ; have  authored,  I  can be reached by messages on any of the following 
  16. ; systems: 
  17. ; 
  18. ;     Bob's Answering Machine      (602) 242-3158   300/1200 bps
  19. ;     FIDO 114/1 Phoenix Node      (602) 242-5230   300/1200/2400 bps
  20. ;     FIDO 114/446 XTRA #1         (602) 979-6352   300/1200/2400 bps
  21. ;     Technoids Anonymous          (602) 899-4876   300/1200/2400 bps
  22. ; 
  23. ; All excellent 24 hour systems.
  24. ; 
  25. ; Don A. Williams
  26. ; 3913 W. Solano Dr. N.
  27. ; Phoenix, AZ 85019
  28.  
  29.  
  30. ; This version of the source for WalkTree has been set up for assembly by
  31. ; SpeedWare's very good TurboEditAsm.  To convert it for assembly by
  32. ; Microsoft's MASM will require the addition of Segment and Assume
  33. ; statements, at least.
  34. ;
  35. ;
  36. ;   version history
  37. ;   modified by John Covici
  38. ;   3 Wirt Street NW
  39. ;   Leesburg, VA 22075
  40. ;   March 12, 1987 fixed the following bugs: 
  41. ;     (1) append cr to generated command line (if not dos goes out to lunch)
  42. ;     (2) now assembles with masm
  43. ;     (3) to get environment segment had to say [ds:2ch] instead of [2ch]
  44. ;        otherwise assembler ignored brackets without error
  45.  
  46. LF      EQU     0AH                     ; ASCII Line Feed
  47. CR      EQU     0DH                     ; ASCII Carriage Return
  48.  
  49.  
  50. cseg segment para public 'code'
  51.         ORG     0100H
  52.  assume cs:cseg,ds:cseg,ss:cseg
  53. Start:  jmp     Begin                   ; Jump over data area
  54.  
  55. ;------  Messages
  56.  
  57. LogOn   db      'WalkTree:  Version 1.01 - March 12, 1987',CR,LF,LF,'$'
  58.  
  59. BadVer  db      'WalkTree requires Dos 2.0 or greater',CR,LF,'$'
  60.  
  61. UseMsg  db      'USAGE:  WalkTree <any dos command>',CR,LF,'$'
  62.  
  63. EndMs1  db      CR,LF,'Number of directories= $'
  64. EndMs2  db      ': Maximum depth= $'
  65. EndMsg  db      '$'
  66.  
  67. AbtMsg  db      'Program terminated by operator.',CR,LF,'$'
  68.  
  69. ;------ Constants and Other Data Storage
  70.  
  71. Path    db      0,':\',65 DUP(0)
  72.  
  73. PatMsg  db      CR,LF,LF,'---'
  74. CurPat  db      0,':\',65 DUP(0)
  75. PatTer  db      '---',CR,LF,0
  76.  
  77.  
  78. MatAll  db      '*.*',0
  79.  
  80. Parent  db      '..',0
  81.  
  82. CmdTail db      0,'/c '
  83. CmdLin  db      128 DUP(0)
  84.  
  85. ComSpc  db      'COMSPEC',0
  86.  
  87. ComCom  db      '\COMMAND.COM',0
  88.  
  89. DTAOfs  dw      0                       ; Save space for DTA: Offset and
  90. DTASeg  dw      0                       ; ... Segment
  91.  
  92. SaveSS  dw      0                       ; Save space for Stack; Segment and
  93. SaveSP  dw      0                       ; ... Pointer
  94.  
  95. Level   dw      0                       ; Current depth in hierarchy
  96. MaxLev  dw      0                       ; Maximum depth in hierarchy
  97.  
  98. DirCnt  dw      0                       ; Count of directories processed
  99. comand db 65 dup(0) ;space for command.com from env or default
  100.  
  101. ;------  Parameter Block for DOS function 4B, Exec
  102.  
  103. ParBlk  dw      0                       ; Seg of environment string
  104.         dw      0                       ; Ofs of Command Tail string
  105.         dw      0                       ; Seg "     "      "     "
  106.         dw      0                       ; Ofs of Default FCB 1
  107.         dw      0                       ; Seg "     "     "  "
  108.         dw      0                       ; Ofs of Default FCB 2
  109.         dw      0                       ; Seg "     "     "  "
  110.  
  111. ;=========================================================================
  112. ; Beginning of Program Code
  113.  
  114. Begin:  mov     SP,offset STACK         ; Set local stack
  115.         cld                             ; Clear Direction Flag [forward]
  116.         mov     DX,offset LogOn         ; Dsiplay logon message
  117.         mov     AH,9                    ; ... MS-DOS 'Print String'
  118.         int     21H                     ; ... DOS Entry Interrupt
  119.         mov     AH,30H                  ; MS-DOS 'Get Version'
  120.         int     21H                     ; ... DOS Entry Interrupt
  121.         cmp     AL,2                    ; Check for 2.x or greater
  122.         jnb     VerOk                   ; ... Xfr- 2.x or greater
  123.         mov     DX,offset BadVer        ; Get ptr to 'bad version' msg
  124. ErrorExit:
  125.         mov     AH,9                    ; MS-DOS 'Print String'
  126.         int     21H                     ; ... DOS Entry Interrupt
  127.         int     20H                     ; DOS Terminate Program Interrupt
  128.  
  129. VerOk:  mov     AH,19H                  ; MS-DOS 'Get Current Disk'
  130.         int     21H                     ; ... DOS Entry Interrupt
  131.         add     AL,'A'                  ; Convert disk code to alpha disk
  132.         mov     Path,AL                 ; ... and save in Path
  133.         mov     CurPat,AL               ; ... and in Current Path
  134.         mov     SI,offset Path+3        ; Get Current Dir as starting path
  135.         mov     DL,0                    ; ... current disk
  136.         mov     AH,47H                  ; ... MS-DOS 'Get Current Directory'
  137.         int     21H                     ; ... DOS Entry Interrupt
  138.         mov     SI,80H                  ; Get ptr to Command Line buffer
  139.         lodsb                           ; ... and get length
  140.         or      AL,AL                   ; Check for length zero - no tail
  141.         jnz     HaveTail                ; ... Xfr - length not zero
  142. Usage:
  143.         mov     DX,offset UseMsg        ; Display 'Usage' message and
  144.         jmp     short ErrorExit         ; ... terminate
  145.  
  146. HaveTail:
  147.         cbw                             ; Make length 16 bits
  148.         mov     CX,AX                   ; ... and move to CX for move
  149.         add     AL,3                    ; Adjust length for '/c '
  150.         mov     CmdTail,AL              ; ... and store for DOS 4BH
  151.         mov     DI,offset CmdLin        ; Get ptr to internal Cmnd Line
  152.         repz    movsb                   ; Move command line to internal store
  153.  mov byte ptr[di],0dh ;append carriage return
  154.         mov     BX,1000H                ; Release all but 1000H paragraphs
  155.         mov     AH,4AH                  ; ... MS-DOS 'Modify Allocated Memory'
  156.         int     21H                     ; ... DOS Entry Interrupt
  157.         call    WalkTree                ; Walk the tree recursively
  158.         mov     DX,offset EndMs1        ; Print out run statistics
  159.         mov     AH,9                    ; ... MS-DOS 'Print String'
  160.         int     21H                     ; ... DOS Entry Interrupt
  161.         mov     BX,DirCnt               ; Display directory count in
  162.         call    PrintDecimal            ; ... decimal
  163.         mov     DX,offset EndMs2        ; Display 2nd part of message
  164.         mov     AH,9                    ; ... MS-DOS 'Print String'
  165.         int     21H                     ; ... DOS Entry Interrupt
  166.         mov     BX,MaxLev               ; Display maximum level in
  167.         call    PrintDecimal            ; ... decimal
  168.         mov     DX,offset EndMsg        ; Get ptr final part of message
  169. Terminate:
  170.         mov     AH,9                    ; MS-DOS 'Print String'
  171.         int     21H                     ; ... DOS Entry Interrupt
  172.         mov     DX,offset Path          ; Restore directory to starting
  173.         mov     AH,3BH                  ; ... MS-DOS 'Change Subdirectory'
  174.         int     21H                     ; ... DOS Entry Interrupt
  175.         int     20H                     ; DOS Terminate Program
  176.  
  177. ;=========================================================================
  178. ; WalkTree is a recursive subroutine that processes each level of the
  179. ; directory hierarchy.  Each invocation of Walktree creates and uses a
  180. ; 50 byte stack frame containing the Segment and Offset of the prior
  181. ; level's DTA, the name of the current subdirectory, and a pointer to